extern int zlartg_(doublecomplex *f, doublecomplex *g, doublereal *cs, doublecomplex *sn, doublecomplex *r__);
/*:ref: dlamch_ 7 2 13 124 */
/*:ref: dlapy2_ 7 2 7 7 */
